home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / util / cdity / Stroke.lha / Stroke / Install < prev    next >
Encoding:
Text File  |  1998-04-15  |  2.6 KB  |  114 lines
  1. ; script to install Stroke
  2.  
  3. (transcript "Checking user level.")
  4. (if    (< @user-level 1)
  5.     (
  6.         (transcript "Installation aborted due to too low user level.")
  7.         (abort    "Stroke installation requires at least the \"average\" user "
  8.             "level. Restart installation and select appropriate user level."
  9.         )
  10.     )
  11. )
  12.  
  13. (onerror
  14.     (makeassign "Stroke-install" (safe))
  15. )
  16.  
  17. (complete 0)
  18.  
  19. ;(if    (exists "SYS:WBStartup/Stroke-launch.info" (noreq))
  20. ;    (    (if    (askbool
  21. ;            (prompt "Do you want remove Stroke commodity ?")
  22. ;            (help "If you select yes, Stroke commodity will be removed.\n")
  23. ;            (default 0)
  24. ;            )
  25. ;            ()
  26. ;        )
  27. ;    )
  28. ;)
  29.  
  30.  
  31. (set @default-dest "SYS:")
  32. (set Stroke_dest
  33.     (askdir    (prompt "In which disk or drawer should Stroke commodity be installed?")
  34.         (help     "A subdirectory will be created for Stroke.\n\n"
  35.             @askdir-help)
  36.         (default @default-dest)
  37.         (disk)
  38.     )
  39. )
  40.  
  41. (set @default-dest Stroke_dest)
  42.  
  43.  
  44. (set not_in_place 1)
  45. (if    (askbool
  46.         (prompt "Do you want MagicWB icons instead of default icons ?")
  47.         (help "If you select no, you get standard 4-color icons.\n")
  48.         (default 0)
  49.     )
  50.     (set iconsource "MWB/")
  51.     (set iconsource "Default/")
  52. )
  53. (if    (askbool
  54.         (prompt "Do you want to add Stroke to WBStartup ?")
  55.         (help "If you select yes, Stroke will be automatically started "
  56.             "whenever you boot your machine.\n")
  57.         (default 1)
  58.     )
  59.     (set wb_add 1)
  60.     (set wb_add 0)
  61. )
  62.  
  63.  
  64. (if (not (exists "Stroke-install:" (noreq)))
  65.     (makeassign "Stroke-install" "" (safe))    ; make an educated quess..
  66. )
  67.  
  68.  
  69. (makedir (tackon Stroke_dest "Stroke")    (infos) (safe))
  70.  
  71. (copyfiles    (source (tackon "Stroke-install:Icons/" (tackon iconsource "Stroke.info")))
  72.         (dest (tackon Stroke_dest "Stroke"))
  73. )
  74. (if    not_in_place
  75.     (
  76.         (copyfiles    (source "Stroke-install:Stroke")
  77.                 (dest (tackon Stroke_dest "Stroke"))
  78.         )
  79.         (copyfiles    (source "Stroke-install:Stroke.doc")
  80.                 (dest (tackon Stroke_dest "Stroke"))
  81.                 (infos)
  82.         )
  83.         (copyfiles    (source "Stroke-install:Stroke.data")
  84.                 (dest (tackon Stroke_dest "Stroke"))
  85.         )
  86.         (copyfiles    (source "Stroke-install:Catalogs")
  87.                 (dest (tackon Stroke_dest "Stroke/Catalogs"))
  88.                 (all)
  89.         )
  90.     )
  91. )
  92.  
  93. (if    (= wb_add 1)
  94.     (
  95.         (copyfiles    (source (tackon "Stroke-install:Icons/" (tackon iconsource "Stroke-launch.info")))
  96.                 (dest "SYS:WBStartup")
  97.         )
  98.         (tooltype    (prompt "Setting tooltypes for WBStartup icon")
  99.                 (help "These tooltype entries must be present, so let me make them..")
  100.                 (dest "SYS:WBStartup/Stroke-launch")
  101.                 (setdefaulttool (tackon Stroke_dest "Stroke/Stroke"))
  102.                 (noposition)
  103.                 (settooltype "DONOTWAIT" "")
  104.         )
  105.     )
  106. )
  107.  
  108.  
  109. (complete 100)
  110. (makeassign "Stroke-install" (safe))
  111.  
  112.     ; this is not strictly necessary, but doesn't hurt
  113. (exit)
  114.